home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_08_1985_Transactor_Publishing.d64
/
hi-res text demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
843b
|
48 lines
100 rem sample program to use hi-res
110 rem text
120 rem darren james spruyt 85/06/01
130 rem
140 poke 53281,0 :rem set bg color
150 sys 32771 :rem clear hi-res screen
160 sys 32768 :rem turn screen on
170 rem 820 is overlap reg
180 rem 821 is color reg
190 rem 681 is xsize reg
200 rem 682 is ysize reg
210 rem 679 is y pos reg
220 rem 678 is x pos reg
230 rem 683 is char reg
240 for k=1 to 15
250 a$="the"
260 poke 821,k*16
270 poke 681,2
280 poke 682,2
290 for j=1 to len(a$)
300 poke 679,3
310 poke 678,2+((j-1)*3)
320 poke 683,asc(mid$(a$,j,1))
330 sys 32777
340 next j
350 poke 681,8
360 poke 682,9
370 poke 821,k*16
380 poke 679,10
390 poke 678,1
400 poke 683,asc("t")
410 sys 32777
420 for n=1 to 15
430 a$="ransactor"
440 poke 681,3
450 poke 682,2
460 for j=1 to len(a$)
470 c=n+(j-1):if c>15 then c=c-15
480 poke 821,c*16
490 poke 679,14
500 poke 678,7+((j-1)*3)
510 poke 683,asc(mid$(a$,j,1))
520 sys 32777
530 next j
540 next n
550 next k
560 sys 32774